data_sources <- c(
"https://fred.stlouisfed.org/series/UNRATE",
"https://fred.stlouisfed.org/series/WIUR",
"https://fred.stlouisfed.org/series/CAUR"
)
variable_names <- c("U.S. Unemployment Rate", "Wisconsin Unemployment Rate", "California Unemployment Rate")
# Download the data
udata <- get_ecodata(data_sources, variable_names)
# Filter for only 2006-2013
udata <- udata |>
filter(Date >= "2006-01-01", Date <= "2018-12-31")